home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / I (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  312b  |  11 lines
  1. 1 FORT=1TO2:SYS36867
  2. 2 FORX1=0TO319STEP06:A=USR(65),X1,199:NEXT
  3. 3 FORX1=36TO319STEP36:A=USR(65),X1,198:NEXT
  4. 4 FORX1=72TO319STEP72:A=USR(65),X1,197:NEXT
  5. 5 FORX1=199TO0STEP-06:A=USR(65),0,X1:NEXT
  6. 6 FORX1=169TO0STEP-30:A=USR(65),1,X1:NEXT
  7. 7 FORX1=139TO0STEP-60:A=USR(65),2,X1:NEXT
  8. 8 FORX1=139TO0STEP-60:A=USR(65),2,X1:NEXT:NEXT:A=USR(33),6:A=USR(33),7
  9. 9 GETA$:IFA$=""THEN9
  10. 10 LOAD"CMND",D0
  11.